home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00024.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  614 b   |  31 lines

  1. on enterFrame
  2.   global zz, s
  3.   if the lastClick > (180 * 60) then
  4.     set zz to random(6)
  5.     if zz = 1 then
  6.       do("sel27")
  7.       puppetSprite(1, 1)
  8.       puppetSprite(2, 1)
  9.       puppetSprite(3, 1)
  10.       puppetSprite(4, 1)
  11.       play frame "da"
  12.     else
  13.       set s to random(26)
  14.       puppetSound(5, 0)
  15.       puppetSound(6, 0)
  16.       do("sel" & s & EMPTY)
  17.       puppetSprite(1, 1)
  18.       puppetSprite(2, 1)
  19.       puppetSprite(3, 1)
  20.       puppetSprite(4, 1)
  21.       play frame "da"
  22.     end if
  23.   end if
  24.   do("sel27")
  25.   puppetSprite(1, 1)
  26.   puppetSprite(2, 1)
  27.   puppetSprite(3, 1)
  28.   puppetSprite(4, 1)
  29.   zoom3()
  30. end
  31.